home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / Programmation / Alpha ƒ / Tcl / SystemCode / modeDefs.tcl < prev    next >
Text File  |  1996-01-21  |  5KB  |  129 lines
  1.  
  2. #===============================================================================
  3. lappend modes C
  4. set dummyProc(C)                dummyC
  5. lappend modeSuffixes             {*.h} { set winMode C }
  6. lappend modeSuffixes            {*.c} { set winMode C }
  7. lappend modeSuffixes            {*.r} { set winMode C }
  8. set modeMenus(C)                 { thinkMenu cwarriorMenu thinkRefMenu toolboxRefMenu}
  9.  
  10. #================================================================================
  11. lappend modes C++
  12. set dummyProc(C++)                dummyC++
  13. lappend modeSuffixes             {*.H} { set winMode C++ }
  14. lappend modeSuffixes            {*.cc} { set winMode C++ }
  15. lappend modeSuffixes            {*.cp} { set winMode C++ }
  16. lappend modeSuffixes            {*.cpp} { set winMode C++ }
  17. lappend modeSuffixes            {*.CPP} { set winMode C++ }
  18. lappend modeSuffixes            {*.C} { set winMode C++ }
  19. set modeMenus(C++)                 { thinkMenu cwarriorMenu thinkRefMenu toolboxRefMenu}
  20.  
  21. #===============================================================================
  22. # PL/SQL mode by Joel D. Elkins
  23. lappend modes SQL
  24. set modeMenus(SQL)                        { }
  25. set dummyProc(SQL)                        dummySQL
  26. lappend modeSuffixes                    {*.sql} { set winMode SQL }
  27. lappend modeSuffixes                    {*.SQL} { set winMode SQL }
  28. lappend modeSuffixes                    {*.pkg}    { set winMode SQL }
  29.  
  30. #================================================================================
  31. lappend modes Shel
  32. set dummyProc(Shel)                dummyShel
  33. set modeMenus(Shel)             { tclMenu }
  34. lappend modeSuffixes            {*tcl\ sh*} {set winMode Shel}
  35. newModeVar Shel wordBreak {(\$)?[a-zA-Z0-9_.]+} 0
  36. newModeVar Shel wordWrap {0} 1
  37. newModeVar Shel wordBreakPreface {[^a-zA-Z0-9_\$]} 0
  38. newModeVar Shel autoMark    0    1
  39. regModeKeywords -m {╟} Shel {}
  40.  
  41. #===============================================================================
  42. #    AppleScript mode
  43. lappend modes Scrp
  44. set dummyProc(Scrp)                dummyScrp
  45. lappend modeSuffixes             {*.script} { set winMode Scrp }
  46. set modeMenus(Scrp)             { }
  47.  
  48.  
  49. #================================================================================
  50. lappend modes PS
  51. lappend modeSuffixes            {*.ps} { set winMode PS }
  52. newModeVar PS prefixString {% } 0 
  53. set PSKeyWords {
  54.     def begin end dict load
  55.     exec if ifelse for repeat loop exit stop stopped countexecstack execstack quit start
  56.     gsave grestore grestoreall initgraphics 
  57.     newpath erasepage fill eofill stroke image imagemask showpage copypage
  58. }
  59. if {[info exists PSwords]} {set PSKeyWords [concat $PSKeyWords $PSwords]}
  60. regModeKeywords -e {%} -m {/}  -c red -k blue PS $PSKeyWords -i "\}" -i "\{" -i {[} -i {]} -I green
  61. unset PSKeyWords
  62.  
  63. #================================================================================
  64. lappend modes Fort
  65. lappend modeSuffixes            {*.f} { set winMode Fort }
  66. lappend modeSuffixes            {*.inc} { set winMode Fort }
  67. lappend modeSuffixes            {*.INC} { set winMode Fort }
  68. lappend modeSuffixes            {*.fcm} { set winMode Fort }
  69. lappend modeSuffixes            {*.for} { set winMode Fort }
  70. lappend modeSuffixes            {*.FOR} { set winMode Fort }
  71. lappend modeSuffixes             {*.f9}    { set winMode Fort }
  72. lappend modeSuffixes            {*.f90}    { set winMode Fort }
  73. lappend modeSuffixes            {*.hpf}    { set winMode Fort }
  74. set dummyProc(Fort)                dummyFort
  75. set modeMenus(Fort)             { }
  76.  
  77. #================================================================================
  78. lappend modes Scm
  79. set dummyProc(Scm)                dummyScm
  80. set modeMenus(Scm)                 { }
  81. lappend modeSuffixes             {*.scm} { set winMode Scm }
  82.  
  83. #================================================================================
  84. lappend modes Pasc
  85. lappend modeSuffixes             {*.p} { set winMode Pasc }
  86. set dummyProc(Pasc)                dummyPascal
  87. set modeMenus(Pasc)                { thinkRefMenu toolboxRefMenu}
  88.  
  89. #=============================================================================
  90. lappend modes Tcl
  91. set dummyProc(Tcl)                dummyTcl
  92. lappend modeSuffixes            {*.tcl} { set winMode Tcl }
  93. set modeMenus(Tcl)                 { tclMenu }
  94.  
  95. #================================================================================
  96. lappend modes MPW
  97. set modeMenus(MPW)                 { }
  98. lappend modeSuffixes            {*Toolserver\ *} { set winMode MPW }
  99.  
  100. #================================================================================
  101. lappend modes Brws
  102. set modeMenus(Brws)             { }
  103. set dummyProc(Brws)                dummyBrws
  104. #===============================================================================
  105. lappend modes Mail
  106. set dummyProc(Mail)                dummyMail
  107. set modeMenus(Mail)             {  }
  108. newModeVar Mail wordBreak {(\$)?[a-zA-Z0-9_.]+} 0
  109. newModeVar Mail wordWrap {0} 1
  110. newModeVar Mail wordBreakPreface {[^a-zA-Z0-9_\$]} 0
  111. newModeVar Mail autoMark    0    1
  112. set mailKeywords {{Subject:} {To:} {From:} {Cc:} {Sender:}}
  113. regModeKeywords -k blue -e {>} Mail $mailKeywords
  114. #================================================================================
  115. lappend modes Diff
  116. set modeMenus(Diff)             { }
  117. #================================================================================
  118. lappend modes Ada
  119. set dummyProc(Ada)                dummyAda
  120. set modeMenus(Ada)                 { }
  121. lappend modeSuffixes             {*.ada} { set winMode Ada }
  122. lappend modeSuffixes            {*.ads} { set winMode Ada }
  123. lappend modeSuffixes            {*.adb} { set winMode Ada }
  124. lappend modeSuffixes            {*.ADS} { set winMode Ada }
  125. lappend modeSuffixes            {*.ADB} { set winMode Ada }
  126. lappend modeSuffixes            {*_.a} { set winMode Ada }
  127. lappend modeSuffixes            {*.a} { set winMode Ada }
  128. #===============================================================================
  129.